Mac Power 1997 January

home *** CD-ROM | disk | FTP | other *** search
/ Mac Power 1997 January / macpower199701.bin / AMUG / Programming_10 / ICPAppSource+ICprogKit / ICAppSourceKit 1.3.sit / ICAppSourceKit1.3 / ICWindowGlobals.p < prev next >
MacBinary | 1996-07-20 | 3.8 KB | [TEXT/CWIE]
open in:
MacOS 8.1 extracted |
Win98 extracted |
DOS extracted
view JSON data |
view as text

This file was processed as: MacBinary (archive/macBinary).

You can browse this item here: ICWindowGlobals.p
Confidence	Program	Detection	Match Type	Support
`66%`	dexvert	ZX81 Sinclair BASIC `(image/sinclairBASIC)`	ext	Supported
`10%`	dexvert	MacBinary `(archive/macBinary)`	fallback	Supported
`1%`	dexvert	Applause Picture `(image/applausePicture)`	ext	Unsupported
`1%`	dexvert	bsdiff patch `(other/bsdiffPatch)`	ext	Unsupported
`1%`	dexvert	imgdiff patch `(other/imgdiffPatch)`	ext	Unsupported
`1%`	dexvert	MATLAB p-code `(other/matlabPCode)`	ext	Unsupported
`1%`	dexvert	WSUS Patch Storage File `(other/wsusPatchStorageFile)`	ext	Unsupported
`1%`	dexvert	Text File `(text/txt)`	fallback	Supported
`100%`	file	MacBinary II, inited, Sat Jul 20 13:28:29 1996, modified Sat Jul 20 13:28:29 1996, creator 'CWIE', type ASCII, 3138 bytes "ICWindowGlobals.p" , at 0xcc2 410 bytes resource	default (weak)
`99%`	file	data	default
`74%`	TrID	Macintosh plain text (MacBinary)	default
`25%`	TrID	MacBinary 2	default (weak)
`100%`	siegfried	fmt/1762 MacBinary (II)	default
`100%`	lsar	MacBinary	default
id metadata
key	value
macFileType	`[TEXT]`
macFileCreator	`[CWIE]`
hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 11 49 43 57 69 6e 64 | 6f 77 47 6c 6f 62 61 6c |..ICWind|owGlobal|
|00000010| 73 2e 70 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |s.p.....|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 43 57 49 | 45 01 00 00 00 00 00 00 |.TEXTCWI|E.......|
|00000050| 00 00 00 00 00 0c 42 00 | 00 01 9a ae 16 c7 bd ae |......B.|........|
|00000060| 16 c7 bd 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 ab 59 00 00 |........|.....Y..|
|00000080| 75 6e 69 74 20 49 43 57 | 69 6e 64 6f 77 47 6c 6f |unit ICW|indowGlo|
|00000090| 62 61 6c 73 3b 0d 0d 69 | 6e 74 65 72 66 61 63 65 |bals;..i|nterface|
|000000a0| 0d 0d 09 75 73 65 73 0d | 09 09 46 69 6c 65 73 2c |...uses.|..Files,|
|000000b0| 20 57 49 6e 64 6f 77 73 | 3b 0d 09 09 0d 09 74 79 | WIndows|;.....ty|
|000000c0| 70 65 0d 09 09 57 69 6e | 64 6f 77 54 79 70 65 20 |pe...Win|dowType |
|000000d0| 3d 20 28 57 54 5f 4e 6f | 6e 65 2c 20 57 54 5f 41 |= (WT_No|ne, WT_A|
|000000e0| 62 6f 75 74 2c 20 57 54 | 5f 4d 61 69 6e 2c 0d 09 |bout, WT|_Main,..|
|000000f0| 09 09 57 54 5f 50 65 72 | 73 6f 6e 61 6c 2c 20 57 |..WT_Per|sonal, W|
|00000100| 54 5f 45 6d 61 69 6c 2c | 20 57 54 5f 4e 65 77 73 |T_Email,| WT_News|
|00000110| 2c 20 57 54 5f 57 65 62 | 2c 20 57 54 5f 46 69 6c |, WT_Web|, WT_Fil|
|00000120| 65 54 72 61 6e 73 66 65 | 72 2c 0d 09 09 09 57 54 |eTransfe|r,....WT|
|00000130| 5f 4f 74 68 65 72 53 65 | 72 76 69 63 65 73 2c 20 |_OtherSe|rvices, |
|00000140| 57 54 5f 46 6f 6e 74 2c | 20 57 54 5f 46 69 6c 65 |WT_Font,| WT_File|
|00000150| 4d 61 70 70 69 6e 67 2c | 20 57 54 5f 48 65 6c 70 |Mapping,| WT_Help|
|00000160| 65 72 2c 20 57 54 5f 46 | 69 72 65 77 61 6c 6c 73 |er, WT_F|irewalls|
|00000170| 2c 0d 09 09 09 57 54 5f | 4c 61 73 74 29 3b 0d 0d |,....WT_|Last);..|
|00000180| 09 63 6f 6e 73 74 0d 09 | 09 69 74 65 6d 5f 6d 61 |.const..|.item_ma|
|00000190| 78 20 3d 20 31 35 3b 0d | 09 09 77 68 61 74 73 5f |x = 15;.|..whats_|
|000001a0| 6d 61 78 20 3d 20 31 35 | 3b 0d 0d 09 74 79 70 65 |max = 15|;...type|
|000001b0| 0d 09 09 57 68 61 74 52 | 65 63 6f 72 64 20 3d 20 |...WhatR|ecord = |
|000001c0| 72 65 63 6f 72 64 0d 09 | 09 09 09 6b 65 79 3a 20 |record..|...key: |
|000001d0| 73 74 72 33 31 3b 0d 09 | 09 09 09 74 79 70 3a 20 |str31;..|...typ: |
|000001e0| 4f 53 54 79 70 65 3b 0d | 09 09 09 09 66 6c 61 67 |OSType;.|....flag|
|000001f0| 73 3a 20 6c 6f 6e 67 49 | 6e 74 3b 0d 09 09 09 09 |s: longI|nt;.....|
|00000200| 64 61 74 61 3a 20 70 74 | 72 3b 0d 09 09 09 09 73 |data: pt|r;.....s|
|00000210| 70 61 72 65 5f 64 61 74 | 61 3a 20 50 74 72 3b 0d |pare_dat|a: Ptr;.|
|00000220| 09 09 09 09 66 73 73 3a | 20 46 53 53 70 65 63 3b |....fss:| FSSpec;|
|00000230| 0d 09 09 09 09 6d 6f 64 | 69 66 69 65 64 3a 20 62 |.....mod|ified: b|
|00000240| 6f 6f 6c 65 61 6e 3b 0d | 09 09 09 65 6e 64 3b 0d |oolean;.|...end;.|
|00000250| 09 09 57 68 61 74 52 65 | 63 6f 72 64 50 74 72 20 |..WhatRe|cordPtr |
|00000260| 3d 20 5e 57 68 61 74 52 | 65 63 6f 72 64 3b 0d 09 |= ^WhatR|ecord;..|
|00000270| 76 61 72 0d 09 09 77 69 | 6e 64 6f 77 69 6e 66 6f |var...wi|ndowinfo|
|00000280| 3a 20 61 72 72 61 79 5b | 57 69 6e 64 6f 77 54 79 |: array[|WindowTy|
|00000290| 70 65 5d 20 6f 66 20 72 | 65 63 6f 72 64 0d 09 09 |pe] of r|ecord...|
|000002a0| 09 09 77 69 6e 64 6f 77 | 3a 20 57 69 6e 64 6f 77 |..window|: Window|
|000002b0| 50 74 72 3b 0d 09 09 09 | 09 69 74 65 6d 73 3a 20 |Ptr;....|.items: |
|000002c0| 61 72 72 61 79 5b 31 2e | 2e 69 74 65 6d 5f 6d 61 |array[1.|.item_ma|
|000002d0| 78 5d 20 6f 66 20 57 68 | 61 74 52 65 63 6f 72 64 |x] of Wh|atRecord|
|000002e0| 50 74 72 3b 0d 09 09 09 | 09 77 69 6e 64 6f 77 5f |Ptr;....|.window_|
|000002f0| 6b 65 79 5f 6e 65 65 64 | 73 5f 74 61 62 73 3a 42 |key_need|s_tabs:B|
|00000300| 6f 6f 6c 65 61 6e 3b 0d | 09 09 09 09 73 65 6c 65 |oolean;.|....sele|
|00000310| 63 74 65 64 5f 69 74 65 | 6d 3a 20 69 6e 74 65 67 |cted_ite|m: integ|
|00000320| 65 72 3b 0d 09 09 09 09 | 69 64 3a 20 69 6e 74 65 |er;.....|id: inte|
|00000330| 67 65 72 3b 0d 09 09 09 | 09 70 6f 73 69 74 69 6f |ger;....|.positio|
|00000340| 6e 3a 20 50 6f 69 6e 74 | 3b 0d 09 09 09 65 6e 64 |n: Point|;....end|
|00000350| 3b 0d 09 09 77 68 61 74 | 69 6e 66 6f 3a 20 61 72 |;...what|info: ar|
|00000360| 72 61 79 5b 31 2e 2e 77 | 68 61 74 73 5f 6d 61 78 |ray[1..w|hats_max|
|00000370| 5d 20 6f 66 20 72 65 63 | 6f 72 64 0d 09 09 09 09 |] of rec|ord.....|
|00000380| 74 79 70 3a 20 4f 53 54 | 79 70 65 3b 0d 09 09 09 |typ: OST|ype;....|
|00000390| 09 6f 70 65 6e 3a 20 50 | 72 6f 63 50 74 72 3b 0d |.open: P|rocPtr;.|
|000003a0| 09 09 09 09 6b 65 79 3a | 20 50 72 6f 63 50 74 72 |....key:| ProcPtr|
|000003b0| 3b 0d 09 09 09 09 63 6c | 69 63 6b 3a 20 50 72 6f |;.....cl|ick: Pro|
|000003c0| 63 50 74 72 3b 0d 09 09 | 09 09 61 63 74 69 76 61 |cPtr;...|..activa|
|000003d0| 74 65 3a 20 50 72 6f 63 | 50 74 72 3b 0d 09 09 09 |te: Proc|Ptr;....|
|000003e0| 09 69 64 6c 65 3a 20 50 | 72 6f 63 50 74 72 3b 0d |.idle: P|rocPtr;.|
|000003f0| 09 09 09 09 66 6c 75 73 | 68 3a 20 50 72 6f 63 50 |....flus|h: ProcP|
|00000400| 74 72 3b 0d 09 09 09 09 | 63 6c 6f 73 65 3a 20 50 |tr;.....|close: P|
|00000410| 72 6f 63 50 74 72 3b 09 | 09 28 2a 20 6d 75 73 74 |rocPtr;.|.(* must|
|00000420| 20 62 65 20 61 62 6c 65 | 20 74 6f 20 63 61 6c 6c | be able| to call|
|00000430| 20 63 6c 6f 73 65 20 61 | 66 74 65 72 20 73 75 63 | close a|fter suc|
|00000440| 63 65 73 73 66 75 6c 20 | 2a 6f 72 2a 20 66 61 69 |cessful |*or* fai|
|00000450| 6c 65 64 20 6f 70 65 6e | 20 2a 29 0d 09 09 09 09 |led open| *).....|
|00000460| 63 75 72 73 6f 72 3a 20 | 50 72 6f 63 50 74 72 3b |cursor: |ProcPtr;|
|00000470| 0d 09 09 09 09 63 75 72 | 73 6f 72 69 64 3a 20 69 |.....cur|sorid: i|
|00000480| 6e 74 65 67 65 72 3b 0d | 09 09 09 65 6e 64 3b 0d |nteger;.|...end;.|
|00000490| 0d 09 63 6f 6e 73 74 0d | 09 09 77 66 5f 6c 6f 63 |..const.|..wf_loc|
|000004a0| 6b 65 64 20 3d 20 33 31 | 3b 0d 09 09 77 66 5f 6c |ked = 31|;...wf_l|
|000004b0| 6f 63 6b 65 64 5f 6d 61 | 73 6b 20 3d 20 24 38 30 |ocked_ma|sk = $80|
|000004c0| 30 30 30 30 30 30 3b 0d | 0d 09 66 75 6e 63 74 69 |000000;.|..functi|
|000004d0| 6f 6e 20 47 65 74 53 65 | 6c 65 63 74 65 64 49 74 |on GetSe|lectedIt|
|000004e0| 65 6d 20 28 77 74 3a 20 | 57 69 6e 64 6f 77 54 79 |em (wt: |WindowTy|
|000004f0| 70 65 29 3a 20 69 6e 74 | 65 67 65 72 3b 0d 09 66 |pe): int|eger;..f|
|00000500| 75 6e 63 74 69 6f 6e 20 | 47 65 74 57 69 6e 64 6f |unction |GetWindo|
|00000510| 77 54 79 70 65 20 28 77 | 70 3a 20 57 69 6e 64 6f |wType (w|p: Windo|
|00000520| 77 50 74 72 29 3a 20 57 | 69 6e 64 6f 77 54 79 70 |wPtr): W|indowTyp|
|00000530| 65 3b 0d 0d 09 70 72 6f | 63 65 64 75 72 65 20 50 |e;...pro|cedure P|
|00000540| 72 6f 63 65 73 73 41 74 | 74 72 69 62 75 74 65 73 |rocessAt|tributes|
|00000550| 20 28 77 74 3a 20 57 69 | 6e 64 6f 77 54 79 70 65 | (wt: Wi|ndowType|
|00000560| 3b 20 69 74 65 6d 3a 20 | 69 6e 74 65 67 65 72 3b |; item: |integer;|
|00000570| 20 61 74 74 72 3a 20 6c | 6f 6e 67 69 6e 74 29 3b | attr: l|ongint);|
|00000580| 0d 09 66 75 6e 63 74 69 | 6f 6e 20 49 73 4c 6f 63 |..functi|on IsLoc|
|00000590| 6b 65 64 20 28 77 74 3a | 20 57 69 6e 64 6f 77 54 |ked (wt:| WindowT|
|000005a0| 79 70 65 3b 20 69 74 65 | 6d 3a 20 69 6e 74 65 67 |ype; ite|m: integ|
|000005b0| 65 72 29 3a 20 62 6f 6f | 6c 65 61 6e 3b 0d 09 70 |er): boo|lean;..p|
|000005c0| 72 6f 63 65 64 75 72 65 | 20 4c 6f 63 6b 65 64 41 |rocedure| LockedA|
|000005d0| 6c 65 72 74 20 28 77 74 | 3a 20 57 69 6e 64 6f 77 |lert (wt|: Window|
|000005e0| 54 79 70 65 3b 20 69 74 | 65 6d 3a 20 69 6e 74 65 |Type; it|em: inte|
|000005f0| 67 65 72 29 3b 0d 0d 09 | 70 72 6f 63 65 64 75 72 |ger);...|procedur|
|00000600| 65 20 49 6e 69 74 49 43 | 57 69 6e 64 6f 77 47 6c |e InitIC|WindowGl|
|00000610| 6f 62 61 6c 73 3b 0d 0d | 69 6d 70 6c 65 6d 65 6e |obals;..|implemen|
|00000620| 74 61 74 69 6f 6e 0d 0d | 09 75 73 65 73 0d 09 09 |tation..|.uses...|
|00000630| 49 43 54 79 70 65 73 2c | 44 69 61 6c 6f 67 73 2c |ICTypes,|Dialogs,|
|00000640| 20 49 43 4d 69 73 63 53 | 75 62 73 2c 0d 0d 09 09 | ICMiscS|ubs,....|
|00000650| 49 43 44 6f 63 75 6d 65 | 6e 74 20 7b 58 7d 3b 0d |ICDocume|nt {X};.|
|00000660| 0d 09 66 75 6e 63 74 69 | 6f 6e 20 47 65 74 53 65 |..functi|on GetSe|
|00000670| 6c 65 63 74 65 64 49 74 | 65 6d 20 28 77 74 3a 20 |lectedIt|em (wt: |
|00000680| 57 69 6e 64 6f 77 54 79 | 70 65 29 3a 20 69 6e 74 |WindowTy|pe): int|
|00000690| 65 67 65 72 3b 0d 09 09 | 76 61 72 0d 09 09 09 73 |eger;...|var....s|
|000006a0| 65 6c 65 63 74 65 64 5f | 69 74 65 6d 3a 20 69 6e |elected_|item: in|
|000006b0| 74 65 67 65 72 3b 0d 09 | 62 65 67 69 6e 0d 09 09 |teger;..|begin...|
|000006c0| 73 65 6c 65 63 74 65 64 | 5f 69 74 65 6d 20 3a 3d |selected|_item :=|
|000006d0| 20 77 69 6e 64 6f 77 69 | 6e 66 6f 5b 77 74 5d 2e | windowi|nfo[wt].|
|000006e0| 73 65 6c 65 63 74 65 64 | 5f 69 74 65 6d 3b 0d 09 |selected|_item;..|
|000006f0| 09 69 66 20 28 73 65 6c | 65 63 74 65 64 5f 69 74 |.if (sel|ected_it|
|00000700| 65 6d 20 3e 20 30 29 20 | 26 20 28 77 69 6e 64 6f |em > 0) |& (windo|
|00000710| 77 69 6e 66 6f 5b 77 74 | 5d 2e 69 74 65 6d 73 5b |winfo[wt|].items[|
|00000720| 73 65 6c 65 63 74 65 64 | 5f 69 74 65 6d 5d 20 3c |selected|_item] <|
|00000730| 3e 20 6e 69 6c 29 20 26 | 20 28 77 69 6e 64 6f 77 |> nil) &| (window|
|00000740| 69 6e 66 6f 5b 77 74 5d | 2e 69 74 65 6d 73 5b 73 |info[wt]|.items[s|
|00000750| 65 6c 65 63 74 65 64 5f | 69 74 65 6d 5d 5e 2e 74 |elected_|item]^.t|
|00000760| 79 70 20 3d 20 27 54 45 | 58 54 27 29 20 74 68 65 |yp = 'TE|XT') the|
|00000770| 6e 20 62 65 67 69 6e 0d | 09 09 09 47 65 74 53 65 |n begin.|...GetSe|
|00000780| 6c 65 63 74 65 64 49 74 | 65 6d 20 3a 3d 20 73 65 |lectedIt|em := se|
|00000790| 6c 65 63 74 65 64 5f 69 | 74 65 6d 3b 0d 09 09 65 |lected_i|tem;...e|
|000007a0| 6e 64 20 65 6c 73 65 20 | 62 65 67 69 6e 0d 09 09 |nd else |begin...|
|000007b0| 09 47 65 74 53 65 6c 65 | 63 74 65 64 49 74 65 6d |.GetSele|ctedItem|
|000007c0| 20 3a 3d 20 2d 31 3b 0d | 09 09 65 6e 64 3b 20 28 | := -1;.|..end; (|
|000007d0| 2a 20 69 66 20 2a 29 0d | 09 65 6e 64 3b 20 28 2a |* if *).|.end; (*|
|000007e0| 20 47 65 74 53 65 6c 65 | 63 74 65 64 49 74 65 6d | GetSele|ctedItem|
|000007f0| 20 2a 29 0d 0d 09 66 75 | 6e 63 74 69 6f 6e 20 47 | *)...fu|nction G|
|00000800| 65 74 57 69 6e 64 6f 77 | 54 79 70 65 20 28 77 70 |etWindow|Type (wp|
|00000810| 3a 20 57 69 6e 64 6f 77 | 50 74 72 29 3a 20 57 69 |: Window|Ptr): Wi|
|00000820| 6e 64 6f 77 54 79 70 65 | 3b 0d 09 09 76 61 72 0d |ndowType|;...var.|
|00000830| 09 09 09 69 3a 20 57 69 | 6e 64 6f 77 54 79 70 65 |...i: Wi|ndowType|
|00000840| 3b 0d 09 62 65 67 69 6e | 0d 09 09 47 65 74 57 69 |;..begin|...GetWi|
|00000850| 6e 64 6f 77 54 79 70 65 | 20 3a 3d 20 57 54 5f 4e |ndowType| := WT_N|
|00000860| 6f 6e 65 3b 0d 09 09 69 | 66 20 77 70 20 3c 3e 20 |one;...i|f wp <> |
|00000870| 6e 69 6c 20 74 68 65 6e | 20 62 65 67 69 6e 0d 09 |nil then| begin..|
|00000880| 09 09 66 6f 72 20 69 20 | 3a 3d 20 57 54 5f 4e 6f |..for i |:= WT_No|
|00000890| 6e 65 20 74 6f 20 57 54 | 5f 4c 61 73 74 20 64 6f |ne to WT|_Last do|
|000008a0| 20 62 65 67 69 6e 0d 09 | 09 09 09 69 66 20 77 69 | begin..|...if wi|
|000008b0| 6e 64 6f 77 69 6e 66 6f | 5b 69 5d 2e 77 69 6e 64 |ndowinfo|[i].wind|
|000008c0| 6f 77 20 3d 20 77 70 20 | 74 68 65 6e 20 62 65 67 |ow = wp |then beg|
|000008d0| 69 6e 0d 09 09 09 09 09 | 47 65 74 57 69 6e 64 6f |in......|GetWindo|
|000008e0| 77 54 79 70 65 20 3a 3d | 20 69 3b 0d 09 09 09 09 |wType :=| i;.....|
|000008f0| 09 6c 65 61 76 65 3b 0d | 09 09 09 09 65 6e 64 3b |.leave;.|....end;|
|00000900| 0d 09 09 09 65 6e 64 3b | 0d 09 09 65 6e 64 3b 0d |....end;|...end;.|
|00000910| 09 65 6e 64 3b 0d 0d 09 | 70 72 6f 63 65 64 75 72 |.end;...|procedur|
|00000920| 65 20 50 72 6f 63 65 73 | 73 41 74 74 72 69 62 75 |e Proces|sAttribu|
|00000930| 74 65 73 20 28 77 74 3a | 20 57 69 6e 64 6f 77 54 |tes (wt:| WindowT|
|00000940| 79 70 65 3b 20 69 74 65 | 6d 3a 20 69 6e 74 65 67 |ype; ite|m: integ|
|00000950| 65 72 3b 20 61 74 74 72 | 3a 20 6c 6f 6e 67 69 6e |er; attr|: longin|
|00000960| 74 29 3b 0d 09 62 65 67 | 69 6e 0d 09 09 69 66 20 |t);..beg|in...if |
|00000970| 28 61 74 74 72 20 3c 3e | 20 49 43 61 74 74 72 5f |(attr <>| ICattr_|
|00000980| 6e 6f 5f 63 68 61 6e 67 | 65 29 20 26 20 54 50 62 |no_chang|e) & TPb|
|00000990| 74 73 74 28 61 74 74 72 | 2c 20 49 43 61 74 74 72 |tst(attr|, ICattr|
|000009a0| 5f 6c 6f 63 6b 65 64 5f | 62 69 74 29 20 74 68 65 |_locked_|bit) the|
|000009b0| 6e 20 62 65 67 69 6e 0d | 09 09 09 62 73 65 74 28 |n begin.|...bset(|
|000009c0| 77 69 6e 64 6f 77 69 6e | 66 6f 5b 77 74 5d 2e 69 |windowin|fo[wt].i|
|000009d0| 74 65 6d 73 5b 69 74 65 | 6d 5d 5e 2e 66 6c 61 67 |tems[ite|m]^.flag|
|000009e0| 73 2c 20 77 66 5f 6c 6f | 63 6b 65 64 29 3b 0d 09 |s, wf_lo|cked);..|
|000009f0| 09 65 6e 64 3b 20 28 2a | 20 69 66 20 2a 29 0d 09 |.end; (*| if *)..|
|00000a00| 65 6e 64 3b 20 28 2a 20 | 50 72 6f 63 65 73 73 41 |end; (* |ProcessA|
|00000a10| 74 74 72 69 62 75 74 65 | 73 20 2a 29 0d 0d 09 66 |ttribute|s *)...f|
|00000a20| 75 6e 63 74 69 6f 6e 20 | 49 73 4c 6f 63 6b 65 64 |unction |IsLocked|
|00000a30| 20 28 77 74 3a 20 57 69 | 6e 64 6f 77 54 79 70 65 | (wt: Wi|ndowType|
|00000a40| 3b 20 69 74 65 6d 3a 20 | 69 6e 74 65 67 65 72 29 |; item: |integer)|
|00000a50| 3a 20 62 6f 6f 6c 65 61 | 6e 3b 0d 09 62 65 67 69 |: boolea|n;..begi|
|00000a60| 6e 0d 09 09 49 73 4c 6f | 63 6b 65 64 20 3a 3d 20 |n...IsLo|cked := |
|00000a70| 54 50 62 74 73 74 28 77 | 69 6e 64 6f 77 69 6e 66 |TPbtst(w|indowinf|
|00000a80| 6f 5b 77 74 5d 2e 69 74 | 65 6d 73 5b 69 74 65 6d |o[wt].it|ems[item|
|00000a90| 5d 5e 2e 66 6c 61 67 73 | 2c 20 77 66 5f 6c 6f 63 |]^.flags|, wf_loc|
|00000aa0| 6b 65 64 29 20 7c 20 49 | 73 44 6f 63 4c 6f 63 6b |ked) | I|sDocLock|
|00000ab0| 65 64 3b 0d 09 65 6e 64 | 3b 20 28 2a 20 49 73 4c |ed;..end|; (* IsL|
|00000ac0| 6f 63 6b 65 64 20 2a 29 | 0d 0d 09 76 61 72 0d 09 |ocked *)|...var..|
|00000ad0| 09 6c 61 73 74 5f 61 6c | 65 72 74 5f 77 74 3a 20 |.last_al|ert_wt: |
|00000ae0| 57 69 6e 64 6f 77 54 79 | 70 65 3b 0d 09 09 6c 61 |WindowTy|pe;...la|
|00000af0| 73 74 5f 61 6c 65 72 74 | 5f 69 74 65 6d 3a 20 69 |st_alert|_item: i|
|00000b00| 6e 74 65 67 65 72 3b 0d | 0d 09 70 72 6f 63 65 64 |nteger;.|..proced|
|00000b10| 75 72 65 20 4c 6f 63 6b | 65 64 41 6c 65 72 74 20 |ure Lock|edAlert |
|00000b20| 28 77 74 3a 20 57 69 6e | 64 6f 77 54 79 70 65 3b |(wt: Win|dowType;|
|00000b30| 20 69 74 65 6d 3a 20 69 | 6e 74 65 67 65 72 29 3b | item: i|nteger);|
|00000b40| 0d 09 09 76 61 72 0d 09 | 09 09 6a 75 6e 6b 3a 20 |...var..|..junk: |
|00000b50| 69 6e 74 65 67 65 72 3b | 0d 09 62 65 67 69 6e 0d |integer;|..begin.|
|00000b60| 09 09 69 66 20 28 77 74 | 20 3c 3e 20 6c 61 73 74 |..if (wt| <> last|
|00000b70| 5f 61 6c 65 72 74 5f 77 | 74 29 20 6f 72 20 28 69 |_alert_w|t) or (i|
|00000b80| 74 65 6d 20 3c 3e 20 6c | 61 73 74 5f 61 6c 65 72 |tem <> l|ast_aler|
|00000b90| 74 5f 69 74 65 6d 29 20 | 74 68 65 6e 20 62 65 67 |t_item) |then beg|
|00000ba0| 69 6e 0d 09 09 09 52 65 | 73 65 74 41 6c 65 72 74 |in....Re|setAlert|
|00000bb0| 53 74 61 67 65 3b 0d 09 | 09 09 6c 61 73 74 5f 61 |Stage;..|..last_a|
|00000bc0| 6c 65 72 74 5f 77 74 20 | 3a 3d 20 77 74 3b 0d 09 |lert_wt |:= wt;..|
|00000bd0| 09 09 6c 61 73 74 5f 61 | 6c 65 72 74 5f 69 74 65 |..last_a|lert_ite|
|00000be0| 6d 20 3a 3d 20 69 74 65 | 6d 3b 0d 09 09 65 6e 64 |m := ite|m;...end|
|00000bf0| 3b 20 28 2a 20 69 66 20 | 2a 29 0d 09 09 49 6e 69 |; (* if |*)...Ini|
|00000c00| 74 43 75 72 73 6f 72 3b | 0d 09 09 6a 75 6e 6b 20 |tCursor;|...junk |
|00000c10| 3a 3d 20 53 74 6f 70 41 | 6c 65 72 74 28 31 34 33 |:= StopA|lert(143|
|00000c20| 2c 20 6e 69 6c 29 3b 0d | 09 65 6e 64 3b 20 28 2a |, nil);.|.end; (*|
|00000c30| 20 4c 6f 63 6b 65 64 41 | 6c 65 72 74 20 2a 29 0d | LockedA|lert *).|
|00000c40| 0d 09 70 72 6f 63 65 64 | 75 72 65 20 49 6e 69 74 |..proced|ure Init|
|00000c50| 49 43 57 69 6e 64 6f 77 | 47 6c 6f 62 61 6c 73 3b |ICWindow|Globals;|
|00000c60| 0d 09 62 65 67 69 6e 0d | 09 09 6c 61 73 74 5f 61 |..begin.|..last_a|
|00000c70| 6c 65 72 74 5f 77 74 20 | 3a 3d 20 57 54 5f 4e 6f |lert_wt |:= WT_No|
|00000c80| 6e 65 3b 0d 09 09 6c 61 | 73 74 5f 61 6c 65 72 74 |ne;...la|st_alert|
|00000c90| 5f 69 74 65 6d 20 3a 3d | 20 2d 31 3b 0d 09 65 6e |_item :=| -1;..en|
|00000ca0| 64 3b 20 28 2a 20 49 6e | 69 74 49 43 57 69 6e 64 |d; (* In|itICWind|
|00000cb0| 6f 77 47 6c 6f 62 61 6c | 73 20 2a 29 0d 0d 65 6e |owGlobal|s *)..en|
|00000cc0| 64 2e 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |d.......|........|
|00000cd0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000ce0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000cf0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000d00| 00 00 01 00 00 00 01 54 | 00 00 00 54 00 00 00 46 |.......T|...T...F|
|00000d10| 61 74 68 20 72 65 73 75 | 6c 74 20 6e 6f 74 20 72 |ath resu|lt not r|
|00000d20| 65 70 72 65 73 65 6e 74 | 61 62 6c 65 7c 0d 45 72 |epresent|able|.Er|
|00000d30| 11 49 43 57 69 6e 64 6f | 77 47 6c 6f 62 61 6c 73 |.ICWindo|wGlobals|
|00000d40| 2e 70 02 00 00 00 54 45 | 58 54 43 57 49 45 00 00 |.p....TE|XTCWIE..|
|00000d50| 00 00 54 45 58 54 43 57 | 49 45 00 00 01 38 00 80 |..TEXTCW|IE...8..|
|00000d60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000d70| 00 00 aa 8a 85 ff 00 00 | 0c 42 00 00 01 9a 0d 45 |........|.B.....E|
|00000d80| 72 72 33 37 0d 54 69 6d | 65 20 6f 75 74 20 77 61 |rr37.Tim|e out wa|
|00000d90| 69 74 69 6e 67 20 66 6f | 72 20 48 53 48 4b 20 68 |iting fo|r HSHK h|
|00000da0| 69 67 68 7c 0d 45 72 72 | 33 38 0d 43 68 65 63 6b |igh|.Err|38.Check|
|00000db0| 73 75 6d 20 65 72 72 6f | 72 20 6f 6e 20 72 65 73 |sum erro|r on res|
|00000dc0| 70 6f 6e 73 65 20 70 61 | 63 6b 65 74 7c 0d 45 72 |ponse pa|cket|.Er|
|00000dd0| 72 34 20 64 73 5a 65 72 | 6f 44 69 76 45 72 72 0d |r4 dsZer|oDivErr.|
|00000de0| 49 6e 74 65 72 72 75 70 | 74 65 64 20 73 79 73 74 |Interrup|ted syst|
|00000df0| 65 6d 20 63 61 6c 6c 7c | 0d 45 72 72 34 30 20 64 |em call||.Err40 d|
|00000e00| 00 00 00 48 00 09 47 65 | 6e 65 76 61 00 00 00 00 |...H..Ge|neva....|
|00000e10| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000e20| 00 00 00 00 00 00 00 03 | 00 02 00 40 00 04 01 cd |........|...@....|
|00000e30| 02 63 00 40 00 04 01 cd | 02 63 ae 16 a2 31 00 00 |.c.@....|.c...1..|
|00000e40| 01 b5 00 00 01 bd 00 00 | 00 00 01 00 00 00 00 04 |........|........|
|00000e50| 00 01 00 01 00 00 01 00 | 00 00 01 54 00 00 00 54 |........|...T...T|
|00000e60| 00 00 00 46 00 5c be d4 | 13 78 00 00 00 1c 00 46 |...F.\..|.x.....F|
|00000e70| 00 01 4d 50 53 52 00 00 | 00 12 4d 57 42 42 00 00 |..MPSR..|..MWBB..|
|00000e80| 00 1e 03 ed ff ff 00 00 | 00 00 00 00 00 00 03 f0 |........|........|
|00000e90| ff ff 00 00 00 4c 00 00 | 00 00 00 00 00 00 00 00 |.....L..|........|
|00000ea0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000eb0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000ec0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000ed0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000ee0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000ef0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+